﻿Public Class Form1

    Private Sub WichitaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WichitaToolStripMenuItem.Click
        WebBrowser1.Navigate("http://radar.weather.gov/ridge/lite/N0R/ICT_loop.gif")

    End Sub

    Private Sub TopekaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TopekaToolStripMenuItem.Click
        WebBrowser1.Navigate("http://radar.weather.gov/ridge/lite/N0R/TWX_loop.gif")
    End Sub

    Private Sub DodgeCityToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DodgeCityToolStripMenuItem.Click
        WebBrowser1.Navigate("http://radar.weather.gov/ridge/lite/N0R/DDC_loop.gif")
    End Sub

    Private Sub GoodlandToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoodlandToolStripMenuItem.Click
        WebBrowser1.Navigate("http://radar.weather.gov/ridge/lite/N0R/DDC_loop.gif")

    End Sub

    Private Sub PhoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoToolStripMenuItem.Click
        WebBrowser1.Navigate("http://radar.weather.gov/ridge/lite/N0R/IWA_loop.gif")
    End Sub
End Class
